Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00309_Toggle Sprite Class.ls

Text File | 1997-07-10 | 606 b | 31 lines

property spritelist

on new me, parameterList
  set spritelist to getaProp(parameterList, #spritelist)
  repeat with sNum in spritelist
    set the visible of sprite sNum to 0
    set mNum to the memberNum of sprite sNum
    if mNum > 0 then
      preloadMember(mNum)
    end if
  end repeat
  return me
end

on TurnOn me
  repeat with sNum in spritelist
    set the visible of sprite sNum to not (the visible of sprite sNum)
  end repeat
  updateStage()
end

on TurnOff me
end

on dispose me
  repeat with sNum in spritelist
    set the visible of sprite sNum to 1
  end repeat
  set spritelist to []
end